home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Computer Life 1997 February
/
Computer Life February 1997.iso
/
TELME
/
COMMS
/
FPMODEM.SRP
< prev
next >
Wrap
Text File
|
1996-06-04
|
2KB
|
112 lines
rem Copyright (c) PhoneLink plc
rem Prologue Fast Connect Modem (23/8/95)
label InitDevice
echo off
flush
echo script[56]
send "atchar(13)"
timeout 3,modem_fail
find "OK"
label OffToGate
rem Offline to Gate (also contains Pad to Gate)
echo off
flush
echo script[57]
send "at{InitModemStr}char(13)"
timeout 5,modem_fail
find "OK"
send "atd{DialMode}{PreTel}{SiteTel}{PostFix}char(13)"
echo script[52]...
timeout {DialTimeout},connect_fail
finderr 0,BUSY,busy
finderr 103,NO DIALTONE,connect_fail
finderr 0,NO CARRIER,no_carrier
find "CONNECT"
timeout 3,Bad_PadPrompt
finderr 0,PAD>,Good_PadPrompt
find "ZZZ"
label Bad_PadPrompt
echo script[58]
send "char(13)"
timeout 3,pad_fail
find "PAD>"
label Good_PadPrompt
label PadToGate
echo off
echo script[53]
mwait 250
send "SER{SUB}char(13)"
timeout 3,nua_bad1
finderr 0,COM,nua_good
find "ZZZ"
label nua_bad1
send "SER{SUB}char(13)"
timeout 3,nua_bad2
finderr 0,COM,nua_good
find "ZZZ"
label nua_bad2
send "SER{SUB}char(13)"
timeout 3,nua_fail
find "COM"
label nua_good
echo script[54].
end
label GateToPad
echo off
echo script[92]
send "char(16)CLRchar(13)"
timeout 5,ctrl_p_clear_fail
find "CONF"
echo script[91]...
end
label GateToOff
rem Gate To Offline (also contains Pad to Offline)
echo off
label PadToOff
echo off
send "char(31)char(31)char(31)char(31)"
wait 1
dtrtoggle
echo script[99].
end
label modem_offline
send "char(31)char(31)char(31)char(31)"
wait 1
label hang_up
dtrtoggle
echo script[99]
abort
label modem_fail
echo script[23].
dtrtoggle
abort
label connect_fail
echo script[1]
goto hang_up
label busy
echo script[2]
goto hang_up
label no_carrier
echo script[3]
goto hang_up
label pad_fail
echo script[1]
goto modem_fail
label nua_fail
echo script[22]
goto modem_offline
label ctrl_p_clear_fail
echo script[14]
goto modem_offline